MacWorld 1998 October/Macworld (1998-10).dmg/Serious Demos/Morpha/3DO.DXR/00033_group 1.ls

Text File | 1998-07-31 | 553 b | 28 lines

property mys, mystore, spare
global grouper

on beginSprite me
  set mys to the spriteNum of me
end

on mouseDown me
  set spare to "group 1"
  set grouper to 1
  set mystore to 100
  set the blend of sprite 36 to 40
  set the blend of sprite 37 to 40
  sendAllSprites(#blender)
end

on mouseEnter me
  set spare to the text of field "group"
  set mystore to the blend of sprite mys
  set the blend of sprite mys to 100
  put "group 1" into field "group"
end

on mouseLeave me
  put spare into field "group"
  set the blend of sprite mys to mystore
end